home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_32416.txt < prev    next >
Text File  |  1990-08-14  |  9KB  |  376 lines
  1. -- card: 32416 from stack: in
  2. -- bmap block id: 33131
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: Period Attendance Codes…
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=135 top=309 right=327 bottom=203
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lock screen
  23.   repeat with index = 1 to 5
  24.     put empty into card field index
  25.   end repeat
  26.   set icon of button 3 to "Lg Unchecked Box"
  27.   set icon of button 4 to "Lg Unchecked Box"
  28.   set icon of button 5 to "Lg Checked Box"
  29.   set icon of button 6 to "Lg Checked Box"
  30.   set icon of button 7 to "Lg Unchecked Box"
  31.   set icon of button 8 to "Lg Unchecked Box"
  32.   set icon of button 9 to "Lg Unchecked Box"
  33.   set icon of button 10 to "Lg Unchecked Box"
  34.   set icon of button 11 to "Lg Unchecked Box"
  35.   set icon of button 12 to "Lg Unchecked Box"
  36.   set icon of button 13 to "Lg Unchecked Box"
  37.   repeat with index = 9 to 13
  38.     hide button index
  39.   end repeat
  40.   doMenu first
  41.   unlock screen
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 2 (button)
  47. -- low flags: 00
  48. -- high flags: 2000
  49. -- rect: left=315 top=309 right=327 bottom=383
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Cancel
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   lock screen
  61.   repeat with index = 1 to 5
  62.     put empty into card field index
  63.   end repeat
  64.   set icon of button 3 to "Lg Unchecked Box"
  65.   set icon of button 4 to "Lg Unchecked Box"
  66.   set icon of button 5 to "Lg Checked Box"
  67.   set icon of button 6 to "Lg Checked Box"
  68.   set icon of button 7 to "Lg Unchecked Box"
  69.   set icon of button 8 to "Lg Unchecked Box"
  70.   set icon of button 9 to "Lg Unchecked Box"
  71.   set icon of button 10 to "Lg Unchecked Box"
  72.   set icon of button 11 to "Lg Unchecked Box"
  73.   set icon of button 12 to "Lg Unchecked Box"
  74.   set icon of button 13 to "Lg Unchecked Box"
  75.   repeat with index = 9 to 13
  76.     hide button index
  77.   end repeat
  78.   doMenu first
  79.   unlock screen
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 3 (field)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=16 top=216 right=233 bottom=174
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 10
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96. ----- HyperTalk script -----
  97. on closeField
  98.   show button 9
  99. end closeField
  100.  
  101.  
  102. -- part 4 (field)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=174 top=216 right=233 bottom=254
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 10
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114.  
  115.  
  116. -- part 5 (field)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=256 top=216 right=233 bottom=310
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 10
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: 
  128.  
  129.  
  130. -- part 6 (field)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=310 top=216 right=233 bottom=364
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 10
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: 
  142.  
  143.  
  144. -- part 7 (field)
  145. -- low flags: 00
  146. -- high flags: 0000
  147. -- rect: left=364 top=216 right=233 bottom=418
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 3
  152. -- text size: 10
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: 
  156.  
  157.  
  158. -- part 13 (button)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=439 top=105 right=120 bottom=454
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 5066 / 5066
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Unexcused 1
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   if icon of me is "5067" then
  173.     set icon of me to "Lg Unchecked Box"
  174.   else set icon of me to "Lg Checked Box"
  175. end mouseUp
  176.  
  177.  
  178. -- part 14 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=439 top=121 right=136 bottom=454
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 5066 / 5066
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Unexcused 2
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   if icon of me is "5067" then
  193.     set icon of me to "Lg Unchecked Box"
  194.   else set icon of me to "Lg Checked Box"
  195. end mouseUp
  196.  
  197.  
  198. -- part 15 (button)
  199. -- low flags: 00
  200. -- high flags: 0000
  201. -- rect: left=439 top=153 right=168 bottom=454
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 5067 / 5067
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Unexcused 3
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   if icon of me is "5067" then
  213.     set icon of me to "Lg Unchecked Box"
  214.   else set icon of me to "Lg Checked Box"
  215. end mouseUp
  216.  
  217.  
  218. -- part 16 (button)
  219. -- low flags: 00
  220. -- high flags: 0000
  221. -- rect: left=439 top=169 right=184 bottom=454
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 5067 / 5067
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Unexcused 4
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   if icon of me is "5067" then
  233.     set icon of me to "Lg Unchecked Box"
  234.   else set icon of me to "Lg Checked Box"
  235. end mouseUp
  236.  
  237.  
  238. -- part 17 (button)
  239. -- low flags: 00
  240. -- high flags: 0000
  241. -- rect: left=439 top=185 right=200 bottom=454
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 5066 / 5066
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Unexcused 5
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   if icon of me is "5067" then
  253.     set icon of me to "Lg Unchecked Box"
  254.   else set icon of me to "Lg Checked Box"
  255. end mouseUp
  256.  
  257.  
  258. -- part 18 (button)
  259. -- low flags: 00
  260. -- high flags: 0000
  261. -- rect: left=439 top=201 right=216 bottom=454
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 5066 / 5066
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Unexcused 6
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   if icon of me is "5067" then
  273.     set icon of me to "Lg Unchecked Box"
  274.   else set icon of me to "Lg Checked Box"
  275. end mouseUp
  276.  
  277.  
  278. -- part 19 (button)
  279. -- low flags: 80
  280. -- high flags: 0000
  281. -- rect: left=439 top=217 right=232 bottom=454
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 5066 / 5066
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Unexcused 7
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   if icon of me is "5067" then
  293.     set icon of me to "Lg Unchecked Box"
  294.   else set icon of me to "Lg Checked Box"
  295. end mouseUp
  296.  
  297.  
  298. -- part 20 (button)
  299. -- low flags: 80
  300. -- high flags: 0000
  301. -- rect: left=439 top=233 right=248 bottom=454
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 5066 / 5066
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: Unexcused 8
  310. ----- HyperTalk script -----
  311. on mouseUp
  312.   if icon of me is "5036" then
  313.     set icon of me to "Lg Unchecked Box"
  314.   else set icon of me to "Lg Checked Box"
  315. end mouseUp
  316.  
  317.  
  318. -- part 21 (button)
  319. -- low flags: 80
  320. -- high flags: 0000
  321. -- rect: left=439 top=249 right=264 bottom=454
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 5066 / 5066
  324. -- text alignment: 1
  325. -- font id: 0
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Unexcused 9
  330. ----- HyperTalk script -----
  331. on mouseUp
  332.   if icon of me is "5036" then
  333.     set icon of me to "Lg Unchecked Box"
  334.   else set icon of me to "Lg Checked Box"
  335. end mouseUp
  336.  
  337.  
  338. -- part 22 (button)
  339. -- low flags: 80
  340. -- high flags: 0000
  341. -- rect: left=439 top=265 right=280 bottom=454
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 5066 / 5066
  344. -- text alignment: 1
  345. -- font id: 0
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: Unexcused 10
  350. ----- HyperTalk script -----
  351. on mouseUp
  352.   if icon of me is "5036" then
  353.     set icon of me to "Lg Unchecked Box"
  354.   else set icon of me to "Lg Checked Box"
  355. end mouseUp
  356.  
  357.  
  358. -- part 23 (button)
  359. -- low flags: 80
  360. -- high flags: 0000
  361. -- rect: left=439 top=281 right=296 bottom=454
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 5066 / 5066
  364. -- text alignment: 1
  365. -- font id: 0
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: Unexcused 11
  370. ----- HyperTalk script -----
  371. on mouseUp
  372.   if icon of me is "5036" then
  373.     set icon of me to "Lg Unchecked Box"
  374.   else set icon of me to "Lg Checked Box"
  375. end mouseUp
  376.